home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PASCALL / TEMPJUNK / TESTER.PAS < prev   
Pascal/Delphi Source File  |  1992-11-28  |  368b  |  22 lines
  1. program test;
  2. uses
  3.      crt;
  4. var
  5.      num:longint;
  6.  
  7. function tester(num:longint):longint;
  8. begin
  9.      num:=abs(num-13);
  10.      num:=30*(num+2)+45;
  11.      if num<0 then num:=num+360;
  12.      if num>360 then num:=num-360;
  13.      tester:=num;
  14. end;
  15.  
  16. begin
  17.      clrscr;
  18.      for num:=1 to 12 do
  19.      begin
  20.           writeln(num:10,tester(num):20);
  21.      end;
  22. end.